home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / dbase / do1beta.zip / MENUTEST.DO < prev    next >
Text File  |  1991-06-13  |  176b  |  8 lines
  1. /*
  2.     create a menu and execute it
  3. */
  4. a= new(Menu,1,3,3,5,31,31,[1.0,2.0,3,4,5,6,7,8,9,10,11,12,13,14,15]," test ");
  5. b = choice(a,1);
  6. remove(a);
  7. ? "result of menu is ",b;
  8.